add <- function (x, y) { # 定义函数
  print(x+y)
}
add(1,2) # 调用函数

sum(1:5)
mean(1:5)
seq(1:5)